(((-I)*Csc[theta]* (((r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^ 4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*((-1.*^-12*Sin[phi]*Sin[theta]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/((4 - 1.*^-12* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + 1.5*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[theta]*Sin[2*theta]*(1 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + 1.5*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[theta]*Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + 0.000018*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 6*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)* Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/2 + 2.5*^-13* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)^2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))* (4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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.*^-12* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(2 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((-5.*^-13*r*Sin[phi]*Sin[theta]*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[theta]*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/ 2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*r*Sin[phi]* Sin[theta]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2* Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((-5.*^-13*Sin[phi]^2*Sin[theta]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))^2 - 2.5*^-13*Sin[phi]^2*Sin[theta]*((-1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*((1.*^-12*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2* Sin[2*theta]*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)))/(Sqrt[2]*r) - (I*Csc[theta]*(-1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((-1.*^-12*Sin[phi]*Sin[theta]*( (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/ ((4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.5*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + 1.5*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + 0.000018*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 6*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]^2*Sin[2*theta]^2))/2 + 2.5*^-13* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)^2*Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) - 3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))* (4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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.*^-12*((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(2 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - (3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((-5.*^-13*r*Sin[phi]*Sin[theta]*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - 5.*^-7*r*Sin[phi]* Sin[theta]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (2*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)) + r^2*Sin[theta]^2*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((-5.*^-13*Sin[phi]^2*Sin[theta]*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((-2.5*^-7* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))^2 - 2.5*^-13*Sin[phi]^2*Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - 5.*^-7*((1.*^-12*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (2*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)^2*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))))/ (Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]^2*(((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-13*Sin[phi]^2*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (5.*^-7*((-1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]^2* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (5.999999999999999*^-18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1/4*(((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^3* Cos[2*theta]^2*Sin[2*theta] + Cos[phi]*Sin[phi]^2* Sin[4*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r + (5.*^-7*(Cos[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^ 3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 1.*^-6*Sin[phi]*((3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[phi]*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^ 3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^ 2*Sin[2*theta]^3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^ 2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^ 2*Sin[2*theta]^3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^ 2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)))/r) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* (((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - 5.*^-7*Sin[phi]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[theta]^2*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[theta]^2*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(-2 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) + 5.*^-7*Sin[phi]*((3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[theta]*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (9.999999999999999*^-19*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]*(5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2 - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*(-1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/(r*(1 - 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8*Cot[theta]*Sin[phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))*( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r*Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]*( (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*((1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[theta]^2*Sin[theta]* (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[phi]^2* Sin[theta]^2)/2) + r*Sin[theta]* (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2 + 7.5*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta] + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*(-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 3*r*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Sin[phi]^2* Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*(((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4 + 7.5*^-7*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta] + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 2.5*^-7* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 1.25*^-13* (7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 4*r*Sin[theta]*((105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(8*Cos[phi]* Cos[2*theta] + 2.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[phi]^2* Sin[theta] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (2*r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))*(-3.75*^-7* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))))))/(r*(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^3 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[theta]* (Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]^2*(((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-13*Sin[phi]^2*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (5.*^-7*((-1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]^2* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (5.999999999999999*^-18* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1/4*(((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r + (5.*^-7*(Cos[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 1.*^-6*Sin[phi]*((3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^ 2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^ 2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)))/r) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* (((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*Sin[phi]* ((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[theta]^2*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[theta]^2* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-2 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (9.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2 - (1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))))/(r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8*Cot[theta]*Sin[phi] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r* Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + 2* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((-1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]* ((1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*(((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[phi]^2* Sin[theta]^2)/2) + r*Sin[theta]* (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2 + 7.5*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta] + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 3*r*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Sin[phi]^2* Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*(((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4 + 7.5*^-7*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta] + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 2.5*^-7* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + ((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 1.25*^-13* (7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 4*r*Sin[theta]*((105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (2*r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]))))))/(r*(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^3 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[theta]* (Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])* ((-1.*^-12*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2)/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-5.*^-13*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)^2*Cos[phi]*Cos[2*theta]^2 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* Sin[2*theta] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Sin[phi]^2*(2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* Sin[theta]^3 + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)* Sin[4*theta])) - 5.*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (0.000012*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)^2*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(4*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[theta]*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/ 2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((-2.5*^-7* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((-5.*^-13*r*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Sin[phi]^2*(2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r*Sin[phi]^2* Sin[theta]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*r* ((2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/ r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Cos[phi]*Sin[2*theta]*( -1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]* Sin[phi]^2*Sin[theta]^2*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2)*Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)/2)*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(-3.75*^-7* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Sin[phi]*Sin[theta]^2*((-5.*^-13*Sin[phi]* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[ phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*Sin[phi]* ((2.5*^-13*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/ r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]^2*Cos[2*theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*Cos[2*theta]*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.9999999999999998*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1/4*(((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta])) + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)))/(Sqrt[2]*r) - (I*Csc[theta]*(-1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((-1.*^-12*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^2)/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-5.*^-13* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[ 4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*Cos[2*theta]^2 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* Sin[2*theta] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[ 4*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* Sin[theta]^3 + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)* Sin[4*theta])) - 5.*^-7*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(0.000012* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)^2*Cos[phi]*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)^2*Cos[phi]*(4*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((-5.*^-13*r*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r*Sin[phi]^2* Sin[theta]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*r* ((2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (2.5*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]* Sin[phi]^2*Sin[theta]^2*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*(-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) + r^2*Sin[theta]^2* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*((-5.*^-13*Sin[phi]* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*((-2.5*^-7* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*Sin[phi]* ((2.5*^-13*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (2.5*^-7*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((-21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (21*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]^2*Cos[2*theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)^ 2*Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-1/4*(((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta])) + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2))))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*((1.25*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (5.*^-7*Sin[phi]*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (5.*^-7*Sin[phi]*((1.*^-6*Csc[theta]*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*(2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]^2*Cos[2*theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r + (5.*^-7*Sin[phi]*((-6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]^2*Cos[2*theta]^2)/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]^2*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (5.*^-13*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2* Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^ 2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]^2* Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2*Cos[phi]^2* Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.5*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]* Sin[phi]^2*Sin[theta] + 6.25*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (3.9999999999999995*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*(-1/2*(1.*^-6*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))) - 1.*^-6*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))*(1.*^-6*((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[2*theta]*Cot[theta] - 0.000018* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*Cos[theta]*Sin[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]^2*Sin[phi]^2 - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]^ 2) + 1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]*Cot[theta] + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/2) - 6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta])))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2) + (5.*^-7*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/(r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cot[theta]*Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]* Sin[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*(2.16*^-10* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cot[theta]*Sin[phi] + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2* r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (2.5*^-7*(-2.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[2*theta]^2)*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-0.000216*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Sin[phi]*Sin[theta]^2*((1.25*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r - (5.*^-7*Sin[phi]*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r - (5.*^-7*Sin[phi]*((1.*^-6*Csc[theta]*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*(2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]^2* Cos[2*theta]*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.1999999999999998*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2))/r + (5.*^-7*Sin[phi]*((-6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Cot[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]^2*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (3.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.1999999999999998*^-17* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2))/r) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2)*Sin[theta]^2)*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]^2* Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]*( 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta])*(-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*( 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/ 2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]) - (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/ (-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[phi]* Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (3.9999999999999995*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])* (-1/2*(1.*^-6*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))) - 1.*^-6*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*( 1.*^-6*((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + 6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r + r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Cos[theta]*Sin[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]^2*Sin[phi]^2 - (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]^ 2) + 1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]*Cot[theta] + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/2) - 6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + (r*((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta])))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) + (5.*^-7*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[ phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[theta]*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/ 2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*(2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]^2*Sin[phi]*( Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Cos[2*theta]* Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( -8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (2.5*^-7*(-2.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* 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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2)*( -6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-0.000216*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]* ((((-I)*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]^2*(((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*((1.*^-12*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[theta]* Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) + (5.*^-7*(Cos[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^ 3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 1.*^-6*Sin[phi]*((3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[phi]*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*(8*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^ 3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^ 2*Sin[2*theta]^3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^ 2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^ 2*Sin[2*theta]^3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 3*Cos[phi]^ 2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/ E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)))/r) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((-1.*^-6*Sin[phi]*Sin[theta]*((((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(2 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 2.5*^-13*Sin[phi]* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* (((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))) - 5.*^-7*Sin[phi]*Sin[theta]*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + r* ((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2)) + 5.*^-7*Sin[phi]*((3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[theta]*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (9.999999999999999*^-19*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]*(5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2 - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) - 6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))*( (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/(r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8*Cot[theta]*Sin[phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))*( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.5*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]* (1 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]^2*Sin[2*theta]^2))/2 - 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(2*Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[theta]* Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* (-3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 2.5*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(4 - 1.*^-12* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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.*^-12*((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(2 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(2*Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r*Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^3 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[theta]* (Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]^2*(((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*((1.*^-12*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2* Sin[2*theta]*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + (5.*^-7*(Cos[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 1.*^-6*Sin[phi]*((3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* Sin[2*theta])/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cot[theta]*Sin[phi]*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/ (4*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (3.*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^ 2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cot[theta]*Sin[phi]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^ 2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2* Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)))/r) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((-1.*^-6*Sin[phi]*Sin[theta]*((((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[theta]*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/ 2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 2.5*^-13*Sin[phi]* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 2.5*^-7*Sin[phi]* Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* (((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r*Sin[phi]* Sin[theta]*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))) - 5.*^-7*Sin[phi]*Sin[theta]*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + r*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)) + 5.*^-7*Sin[phi]*((3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[2*theta] + Sin[4*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)/ 2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[theta]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (9.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2 - (1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8*Cot[theta]*Sin[phi] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.5*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[theta]*Sin[2*theta]*(1 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[theta]* Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(Sin[phi]^2*Sin[ 2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[theta]* (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* (-3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(4 - 1.*^-12* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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.*^-12* ((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(2 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 2.1599999999999998*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r* Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + 2* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((-1.*^-6* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (2.5*^-13*Sin[phi]*Sin[theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]*Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-4*Cos[2*theta]*Sin[phi] + 8.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^3 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[theta]* (Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*((1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( -((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))^2/ (4*r^2) + 1.5*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + (2.5*^-13*Sin[phi]^2*(((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ r^2 - (2.5*^-13*Sin[phi]^2*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ r^2 + 2.5*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* Sin[phi]^2*Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) - (2.5*^-7*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/ r - ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - 1.*^-6*r* ((-1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/4 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[phi]^2*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (5.999999999999999*^-18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1/4*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2) + 12*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(-4*Cos[phi]* Cos[theta]^3*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 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2))/(2*r^2) + (5.*^-7*(Cos[phi]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* Csc[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + Sin[phi]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Csc[theta]^5*Sin[phi]* (0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Csc[theta]* (4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta])/2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[2*theta]*Cot[theta]*Csc[theta]* (Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]))* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* Csc[theta]^3*Sin[phi]*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Cos[phi]* (-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta]*(Cos[phi]^2* (-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Csc[theta]* (4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta])/2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[2*theta]*Cot[theta]*Csc[theta]* (Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]))* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + (2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* Csc[theta]*Sin[phi]*(-((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Cos[2*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Csc[theta]^2*Sin[phi]* Sin[2*theta]*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]^2 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))*Cos[2*theta]*Csc[theta]* Sin[phi]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[phi]*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) - (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.9999999999999994*^-18*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2)))/r^2) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((-5.*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((-5.*^-7* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]*Sin[theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + 1.5*^-12*r*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^2*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + (2.5*^-7*Sin[phi]*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( (-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-7*Sin[phi]*Sin[theta]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*( ((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*Sin[phi]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[theta]^2*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[theta]^2*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(-2 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) + 5.*^-7*Sin[phi]*((3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[2*theta] + Sin[4*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + (9.999999999999999*^-19*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^ 2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]*(5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) - (3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])* Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((1.25*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ phi]*Cos[theta]*Sin[phi]*Sin[theta]^2*( (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2* Sin[2*theta]^2))/2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*(2*Cos[phi]*Cos[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/(4 - 1.*^-12* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) - 6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))*(-1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))))/(r^2*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8*Cot[theta]*Sin[phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))*( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*((1.*^-12* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Sin[phi]^2* Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r*Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*( (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r*Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Sin[phi]^2* Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 1.*^-12*r*(7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[theta]^2*Sin[theta]* ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 4*r*Sin[theta]*((105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*(8*Cos[phi]* Cos[2*theta] + 2.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[phi]^2* Sin[theta] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (2*r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))*(-3.75*^-7* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + r*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* ((-3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]))/4 - (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 + 9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 3*r*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))* Sin[theta] + 4*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2*Sin[theta]* ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^ r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)* Cos[phi]^2*Sin[theta]^2) + 0.000018*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*Cos[phi]* Cos[theta]*Sin[theta]^2*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/2 + 3*r*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(-1 + 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]*(1 + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta]))) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2*Cos[phi]*Cos[theta]*Sin[theta]^2* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + r*((630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^ r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4 + 3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta])))) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*Sin[theta] - 4.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[2*phi]* Cos[theta]^2*Sin[theta] + 4.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*(phi - theta)]*Cos[theta]^2* Sin[theta] - 0.000048*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]^2*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]*Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]*Sin[2*theta]*Sin[ 4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 4*(7.5*^-7* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^ 2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]^2*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[ 4*theta]))))))))/(r^2*(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))* (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2 + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)))*Sin[phi]*Sin[2*theta]* (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2* (-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^ 3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))^2/(4*r^2) + 1.5*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]* ((-1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + (2.5*^-13*Sin[phi]^2* (((3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r^2 - (2.5*^-13*Sin[phi]^2*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r^2 + 2.5*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* Sin[phi]^2*Sin[theta]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (2.5*^-7*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/r - ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - 1.*^-6*r*( (-1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (Cos[phi]*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/4 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]^2* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2)* Sin[2*theta])/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (5.999999999999999*^-18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1/4*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2) + 12*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(-4*Cos[phi]* Cos[theta]^3*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 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ (2*r^2) + (5.*^-7*(Cos[phi]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))) + Sin[phi]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^5*Sin[phi]* (0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Csc[theta]* (4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta])/2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[2*theta]*Cot[theta]*Csc[theta]* (Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]))* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^3* Sin[phi]*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta] + 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*(Cos[phi]*(-4*Cos[theta]*Cot[ theta] + Csc[theta]) + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Csc[theta]* (4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta])/2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[theta]* (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[2*theta]*Cot[theta]*Csc[theta]* (Cos[phi]^2*(-2 + 3*Cos[2*theta]) + Sin[phi]^2) - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]))* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta] - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^ 2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]*Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2))/2))^2 + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* Sin[phi]*(-((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Cos[2*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[phi]*Sin[2*theta]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[2*theta]^2 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[2*theta]*Csc[theta]*Sin[phi]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[phi]* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - (3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (2.9999999999999994*^-18*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2)))/r^2) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((-5.*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2* Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* Sin[phi]*Sin[theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 1.5*^-12*r* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^2* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]* Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + (2.5*^-7*Sin[phi]*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-7*Sin[phi]*Sin[theta]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* (((-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*Sin[phi]*((1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[theta]^2*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4))*Cos[phi]* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[theta]^2* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-2 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*Sin[phi]* ((3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Sin[theta]^2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]^3 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(-Sin[2*theta] + Sin[4*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[2*theta] + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(r* (-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + (9.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-(Sin[phi]*Sin[theta]^2*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[2*theta]))) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) - (3.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (1.*^-6*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[theta]^4)/2 + (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*(1 + 3*Cos[2*phi])* Cos[theta]*Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^ 3)))/4 + 9*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-4*(1 + 3*Cos[2*phi])*Cos[theta]* Sin[theta]^3 + 3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2)) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*((1.25*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]* Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]^2*((((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[theta]*(2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] - 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]^2*Sin[2*theta]^2))/ 2 - 2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta]) + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*(2*Cos[phi]* Cos[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/ (4 - 1.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 7.5*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2)))))/(r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(-((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8*Cot[theta]*Sin[phi] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]* Sin[phi] + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/4 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-4*Cot[theta]* Sin[phi] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4))))/ (r^2*(-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + 2* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-Cos[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (-Sin[theta] + Sin[3*theta])))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]* (-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r* Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + r*Sin[theta]*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(Sin[phi]^2* Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2)))) + 1.*^-12*r*(7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[theta]^2*Sin[theta]* ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 4*r*Sin[theta]*((105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]* (2*r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + r*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* ((-3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]))/4 - (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 + 9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) + 3*r*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]))* Sin[theta] + 4*(-1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]^2*Sin[theta]* ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)* Cos[phi]^2*Sin[theta]^2) + 0.000018*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*Cos[phi]* Cos[theta]*Sin[theta]^2*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/2 + 3*r*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Cos[theta]* Sin[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta] + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]* (1 + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta]))) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(2*Cos[phi]*Cos[theta]*Sin[theta]^2* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4 + r*((630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^ r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/4 + 3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta])))) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(8*Cos[phi]* Cos[theta]*Cos[2*theta] + 4.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[theta] - 4.*^-6*r* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[2*phi]*Cos[theta]^2*Sin[theta] + 4.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 0.000048*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Cos[2*(phi + theta)]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]*Sin[2*theta]* Sin[4*theta] + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta])) + 4*(7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]^2* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^ r^2)))))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))))))))/ (r^2*(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*phi]*(-Sin[2*theta] + Sin[4*theta]))* (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)))*Sin[phi]*Sin[2*theta]* (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[theta]*(Sin[phi] - 3*Sin[3*phi])*Sin[theta]^3 - 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Sin[phi]*Sin[theta]^4 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Sin[phi]*Sin[theta]^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*phi]*Sin[theta]^4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]* (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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]*(r^2*Sin[theta]^2*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*((2.5*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (2.5*^-7*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r^2 + 1.5*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (5.*^-7*Sin[phi]*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r^2 + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r^2 - 2.5*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]*Sin[phi]*((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/r - (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + r* ((1.*^-6*Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2* r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Cos[phi]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]^2* Cos[2*theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Cos[phi]^2* Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^ 2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^ 2)))/r^2 + (5.*^-7*Sin[phi]*((2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^4*(0.000027* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*(1 + 2*Cos[2*theta])*Csc[theta]^2*Sin[phi]^2 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Csc[theta]^2*(Cos[phi]^2* (Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]* Sin[phi]^2))/8 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(6.25*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Csc[theta]^2* (2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(3*Cos[phi]^2*Cos[2*theta]* Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*Sin[phi]^2)) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Csc[theta]^4*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]*Sin[phi]^ 2) - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (-Csc[theta]^3 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]* Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2*Cos[theta]* Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + (2.*^-6* (6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^2* Sin[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Cot[theta]* Csc[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[2*theta]*Csc[theta]^2* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cot[theta]*Csc[theta]^2* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta])/2 - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 4.5*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2* Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r^2) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* (((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2*r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 1.5*^-12*r* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (2.5*^-13*Sin[phi]^2* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-13*Sin[phi]^2*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) - (1.5*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[phi]*Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[2*theta]*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (3.9999999999999995*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta]*(-0.000054* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*(-1/4*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) - 6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))^2/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2) - (1.*^-6*r*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) - 6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*( 1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) - 6.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2* Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))*( 1.*^-6*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[phi]^2 - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]*Cot[theta] + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/2) - 6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + ((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta])))/ (2*r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) - (1.25*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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.5*^-13*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cot[theta]*Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(r*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]* Sin[phi]*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*(2.16*^-10* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cot[theta]*Sin[phi] + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2* r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (5.*^-7*(-1.*^-6*(18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)))*Cos[phi]*Cos[2*theta]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[2*theta]^2)*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (-0.000216*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Sin[phi]*Sin[theta]^2*((2.5*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (2.5*^-7*Sin[phi]* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r^2 + 1.5*^-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[phi]* Sin[theta]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (5.*^-7*Sin[phi]*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r^2 + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r^2 - 2.5*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*Sin[phi]* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/r - (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + r*((1.*^-6*Csc[theta]* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Cos[phi]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]^2* Cos[2*theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 - 4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)))/ r^2 + (5.*^-7*Sin[phi]*((2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^4*(0.000027*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Csc[theta]^2*Sin[phi]^2 + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Csc[theta]^2*(Cos[phi]^2* (Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]* Sin[phi]^2))/8 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*(6.25*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])* Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(3*Cos[phi]^2*Cos[2*theta]* Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*Sin[phi]^2)) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Csc[theta]^4*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + 2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(-Csc[theta]^3 + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cot[theta]^2*Csc[theta]* Sin[phi]^2 + 4.999999999999999*^-19*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + (2.*^-6* (6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]^2*Sin[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Cot[theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[2*theta]*Csc[theta]^2*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2*(6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cot[theta]*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta])/2 - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 4.5*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.1999999999999998*^-17*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2))/r^2) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (2*r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 1.5*^-12*r* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r + (2.5*^-13*Sin[phi]^2*((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r - 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( -1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]*( 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))/4))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*( 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (2.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.9999999999999998*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Cos[phi]*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + 5.*^-7*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Cos[phi]*Cos[2*theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*( -1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2) - (1.5*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[phi]* Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[2*theta]*Sin[phi]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*Sin[2*theta]*( Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(r*(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - (3.9999999999999995*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*( -0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2))) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])* (-1/4*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))^2/ (r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2) - (1.*^-6*r*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(1.*^-6*(9*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2 + r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + (-630/(E^r^2*r^6) + (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2))* Sin[phi]^2*Sin[theta]^2*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*Sin[2*theta]) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[phi]^2 - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])/4 - 7.5*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]*Cot[theta] + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/2) - 6.*^-6*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + ((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/4 + (r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4)*Cos[phi]* Sin[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) - 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta])))/ (2*r^2*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))^2) - (1.25*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*( 21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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.5*^-13*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]*Sin[theta]* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[ phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* (0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r^2*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*( -1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*( (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r^2*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*(2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]^2*Sin[phi]*( Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Cos[2*theta]* Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( -8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (5.*^-7*(-1.*^-6*(18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* 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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2)*( r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Cos[theta]*Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Sin[2*theta]))*(-0.000216* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*((1.25*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*Csc[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta] - 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (2.5*^-7*Sin[phi]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - (2.5*^-13*Sin[phi]*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Csc[theta]*Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (Csc[theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2*(2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/r - 5.*^-7*Sin[phi]*((2.5*^-13*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (1.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (2.5*^-7*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[phi]* Csc[theta]*Sin[2*theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]^2*Cos[2*theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.9999999999999998*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2) + (5.*^-7*Sin[phi]*((-6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]^2*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (5.*^-13*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]^2* Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (3.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) + (1.1999999999999998*^-17*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2* Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Cos[theta]*Sin[phi]^2* Sin[theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/ r) - 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[phi]*Sin[theta]* ((-1.*^-6*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2*(3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]^2* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Sin[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/(r* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))) - 5.*^-7*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + r*((2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[ 2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[theta]*(1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[2*theta]*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2* r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]*Sin[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta]))/4))/(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2* Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)) + 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2*Cos[phi]^2* Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 - (1.5*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[phi]*Sin[2*theta]*(9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[theta]* Sin[phi]^2*Sin[theta] + 6.25*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]^2*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (Csc[theta]^2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (3.9999999999999995*^-18* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)) - 1.*^-6*r^2*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[phi]* Sin[theta]^2*((5.*^-7*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/(r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[theta])* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2* Cot[theta]*Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cot[theta]*Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (14*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (-1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]* ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)* Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/ 2))))*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* Sin[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*Cos[theta]* Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-5.*^-13* (-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[phi]^2* Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[ 4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]))) + (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3))/4) - 5.*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-12*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(0.000012* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]*Cos[theta]* Sin[theta]) - 2.5*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[ 2*theta])/4) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* Sin[theta]^3 + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*Sin[4*theta]) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2*((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[phi]*Cos[2*theta]^2 + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[ 4*theta]))))))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))))*(2.16*^-10* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]* Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*Sin[phi]*Sin[4*theta]))/4)) + 2* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(4*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(4*Cot[theta]*Sin[phi] + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2* r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2) - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^ 2))/2))) + (2.5*^-7*(-2.*^-6* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)]) - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]^2*Sin[2*theta]^2)*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^ 2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2* Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-0.000216*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* Sin[phi]*Sin[theta]^2*((1.25*^-13*Sin[phi]* (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Csc[theta]^2*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (2 + 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta] - 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[ phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* (-((Csc[theta]*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta])* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))) - ((-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r + (2.5*^-7*Sin[phi]*((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r - (2.5*^-13*Sin[phi]*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Cos[phi]*Cos[2*theta]*Csc[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((6/(E^r^2*r^4) - (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2))*Csc[theta]^2*Sin[2*theta]*(1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r + (5.*^-7*Sin[phi]*((1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Csc[theta]*Sin[phi]^2*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (Csc[theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(Cos[theta] - 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[3*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]^2* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r - 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r))/2)*Sin[theta]^2)* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/r - 5.*^-7*Sin[phi]* ((2.5*^-13*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/ r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*(Cos[theta] + Cos[3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[phi]*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)*( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]^2*Cos[2*theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.9999999999999998*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(-4*Cos[phi]*Cos[theta]^3*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2* Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Cos[phi]*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2* Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[ 4*theta])))))/(-2 + 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2) + (5.*^-7*Sin[phi]*((-6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]^2*Cos[2*theta]^2)/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]*Cot[theta]* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Sin[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]*Cot[theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Csc[theta]^2*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (5.*^-13*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Sin[phi]^2*Sin[theta]*(-Cos[theta] + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta]*Sin[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (5.*^-7*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2*Sin[theta]* (-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Cos[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (3.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta]* (Csc[theta]^2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta] - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.1999999999999998*^-17* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]* (-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 3*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*(3*Cos[2*(phi - 3*theta)] - 4*Cos[2*(phi - 2*theta)] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 8*Cos[4*theta] + 6*Cos[6*theta] + Cos[2*(phi + theta)] - 4*Cos[2*(phi + 2*theta)] + 3*Cos[2*(phi + 3*theta)]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2))/r) + 1.*^-6*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]* ((-1.*^-6*(3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*Cos[phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))* ((-5.*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*((-5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + ((-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* Sin[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - (3*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r))/4)*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( 2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Sin[phi]^2* Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(-2*(Cos[phi]^2*Cos[2*theta]^ 2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*Sin[phi]^2* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2)*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[theta]^2*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Sin[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(2 - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) + 2.5*^-13*Sin[phi]^2* ((2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + ((-2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r + 3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) - (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r))/2)*Sin[theta]^2)*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[3*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[3*theta]))/ (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((-1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cot[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))) - 2.5*^-13*r* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))* ((2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))) + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2 - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2))*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*Sin[2*theta])/(r*(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))) - 5.*^-7*((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^ 2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + r*((2.5*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))* (-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))*(-1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/2) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-6* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(Cos[theta] + Cos[ 3*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/2 - 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[theta]* (1 + 0.000012*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Cos[theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + Cos[phi]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[2*theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[2*theta]* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (2.5*^-7*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r)*Cos[phi]*Sin[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r* (-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (1.*^-6*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2 + (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]*Sin[2*theta]* (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]) + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]* Sin[2*theta]))/4))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) + (((30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2)*Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Cos[theta]*Sin[phi]^2* Sin[theta] - 5.*^-7*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/4)*Cos[phi]^2*Sin[4*theta]))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]*Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta]))) - (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2* (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[2*theta] + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* (30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3) + ((105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^6 - (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^5 + (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^4 - (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 + (3*(20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 - ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)/2)* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[theta]^2*(-2 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(Sin[phi]^2* Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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]))) - (1.9999999999999998*^-18*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2)*Sin[phi]^2*Sin[theta]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)* (-3.75*^-7*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-18*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[theta]^2*(1 + 0.000012* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[theta]*Sin[theta]) - ((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - 4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2* Sin[2*theta]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(4*Cos[phi]^3*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/ E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3)*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^ 2*Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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])))^2)) + 5.*^-7*((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*( (-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) + (6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3)*Cos[phi]*Cos[2*theta]*(1.*^-12* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)^2*Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]* Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 - (1.5*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta]))*( 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* Sin[theta]*(-Cos[theta] + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(Cos[theta] - 3*Cos[3*theta]) - 2*Sin[theta]* (1 + 1.5*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta])) - 2.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[theta]*Sin[phi]^2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) - 4*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Cos[2*theta]*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3)*Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4 - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Sin[2*theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-1 + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[theta] - 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(2 + 3*Cos[2*theta])*Sin[theta] - 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (Sin[theta] - 3*Sin[3*theta]))))/ (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])))^2 + (6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]*( 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]*Sin[phi]^2*Sin[theta] + 6.25*^-8* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(Cos[phi]* Cos[2*theta] - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]))))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]^2*Sin[phi]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Sin[phi]^2*Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(Csc[theta]^2 - 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))/ (-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))) - (3.9999999999999995*^-18*( -6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^2)*(-0.000054*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(4*Cos[theta]*Sin[phi]^2* Sin[theta] + Cos[phi]^2*Sin[4*theta]))/8 - 18*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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]) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-1.25*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*(Cos[phi]^2* (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]* Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) - 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))^2)) + r^2*(1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*((5.*^-7*(1.*^-12*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* (3.6*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[ phi]*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Sin[2*theta] + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( 12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))*(8 - 2.*^-12*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.5*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(-6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[theta]*Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta]))*(0.000072*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - ((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Csc[theta]^2* (4 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] - 1.*^-6*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Cos[theta]*Sin[theta])*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[ 2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]* Sin[4*theta])) - (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cot[theta]* Sin[phi]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]*(14*Cos[theta]^2* Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 8.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*( -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[theta]^2*Sin[theta]*((-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + (r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*( -1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*( (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)/2 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[2*theta])) + 6.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*Sin[theta]^2*((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 + 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta])) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(Cos[phi]* Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))* ((-2.5*^-7*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Csc[theta]*Sin[2*theta]* (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - ((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(1 - 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + 6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Sin[phi]^2*Sin[theta]^2*( (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[2*theta]* Cot[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]) - 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* Sin[2*theta]) - 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^2)*Cos[phi]*Cos[2*theta]*(-1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 2.5*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))* ((1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)*Cos[theta]* Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]* (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Sin[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[phi]^2*Sin[theta]*( 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[theta]*Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])) + (1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 4)*Cos[phi]*Sin[2*theta])*(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])))) - (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*( 2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])* Sin[2*theta])*(r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2) - 0.000018*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)^2*Cos[phi]*Cos[theta]*Sin[theta] + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[theta]) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2))/r^3)*(-1 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Sin[2*theta] + 1.*^-6*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Sin[2*theta]))* ((-2.5*^-7*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]* (1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/ r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/2)^2* Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta])*(1 - 1.*^-6*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])))/( 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]* Sin[phi]^2*(Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Cos[2*theta]*Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) + ((-21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)/2)*Sin[phi]^2* Sin[theta]^2*(3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^2))/(-1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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])))))/ (r*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(-5.*^-13*(-2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[phi]^2* Sin[theta]^2 - 7.5*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 - (3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]))/4 - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Cos[theta]*Sin[theta]))/4 - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]^2* Sin[2*theta]^2)/2 + 9.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[phi]* (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3) + 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (((-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 4*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*Cos[2*theta]^2 - ((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[2*theta] + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + (2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[phi]* (-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^ 3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* Cos[phi]*(-6*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2* Sin[2*theta]^3))/4) - 5.*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)* (-12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2* Sin[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta])) - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (-12*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[phi]^2*Sin[theta]^2 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/ 2 + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (12*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - ((21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2* Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (0.000012*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)* (-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + 12*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[phi]^2*Sin[theta]^2* (-1 + 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Cos[theta]*Sin[theta]) - 2.5*^-7*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - ((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^ 2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* ((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/ r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cos[phi]*Cos[2*theta]^2 + (((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)* Sin[2*theta])/4) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[phi]^2* (2*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Cos[theta]* Sin[theta]^3 + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3)*Sin[4*theta]) + 2.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-2*((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^5 + (15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*Cos[phi]*Cos[2*theta]^2 + 1.*^-6*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Sin[phi]^2*(2*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Cos[theta]*Sin[theta]^3 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[ 4*theta]))))))/(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^ 2*Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*( -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*( -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2* Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) - (((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*Cot[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[phi]*Sin[2*theta]))/(1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]*Sin[phi]^2* (Cos[theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]*Cos[2*theta]* Sin[theta] - 5.*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[phi]* Sin[theta]^3) - 1.*^-12*(3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/ 2)*Sin[phi]^2*Sin[theta]*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]*Cos[theta]* Cos[2*theta] - (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/2)*Sin[theta]*(1 + 3.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Sin[2*theta])) + (1 - 1.*^-6* (3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + (-21/(E^r^2*r^4) + (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 - ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)/4)*Cos[phi]*Sin[2*theta])* (1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2* Cos[2*theta]^2 + (1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta])*(-1 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]))) + (3.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]* (3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/( -1 + 2.5*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/ E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2*Sin[phi]^2* Sin[theta]^2 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Sin[2*theta]) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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]))))*(2.16*^-10*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]^2*Sin[phi]*( Sin[2*theta] + Sin[4*theta]) - 0.000036*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(-(Cos[2*theta]* Sin[2*phi]) + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[phi]*(Sin[phi]^2* Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*( -8*Cot[theta]*Sin[phi] - 1.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(Cos[theta] + Cos[3*theta])* Csc[theta]*(Sin[phi] - Sin[3*phi]) + 2.5*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[phi]* (2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2* Sin[phi]*Sin[4*theta]))/4)) + 2*(1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (2*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + r*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3) + (105/(E^r^2*r^5) - (105*(E^(-r^2) - (2*r^2)/ E^r^2))/r^5 + (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (13*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^3 + (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 - (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/ E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r* (-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r)/2))*Cos[2*theta]*Sin[2*phi] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*((Cos[theta]^2 + Cos[2*theta])* Sin[2*phi] - 1.*^-6*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta])) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/ E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (4*Cot[theta]*Sin[phi] + 5.*^-13*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)* (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*Sin[phi]* (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2* Sin[4*theta]) - 5.*^-7*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/ E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/ E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]^2*Cos[2*theta]^2* Csc[theta]^3 + 5.3999999999999996*^-17*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]* Sin[phi]^2 + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^ 2*Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(4*Cos[phi]^2* Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*(Cos[phi]^2* Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]*Cos[theta]* (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 1.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2* Cos[2*theta] + Sin[phi]^2) - ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/ 2))) + (2.5*^-7*(-2.*^-6*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2))* Cos[phi]*Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* Cos[2*theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) - 6.*^-6* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* 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] + 0.000024*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]^2*Sin[2*theta]^2 - 2.*^-6*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]^2*Sin[2*theta]^2)*( -6.*^-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(2 - 5.*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2* Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3* Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^ 2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[ 2*(phi + theta)])*Sin[2*theta])*(-6.*^-6* ((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[phi]*Cos[theta]* Sin[theta] + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r^2)*(1 + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*Cos[phi]* Sin[2*theta]))*(-0.000216*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]* (1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 - 72*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*(2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4.*^-6* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[phi]* (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*Sin[phi]^2) + ((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/ E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/ r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/ E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(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*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^3*Cos[phi]*Cos[theta]*Sin[phi]^2* Sin[theta]^3 - 3.75*^-13*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^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* (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*Cos[theta]*Sin[theta]) - 1.25*^-13*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11* (3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2* (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/ r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/ r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/ E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/ E^r^2))))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2* Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12* (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r* (-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2* (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)* Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/ E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r* ((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)* 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